Mapping Chicago
chicago = get_stamenmap(bbox = c(left = -88.0225, bottom = 41.5949, right = -87.2713, top = 42.0677), maptype = c("toner-lite"), zoom = 13)
## 304 tiles needed, this may take a while (try a smaller zoom).
## Source : http://tile.stamen.com/toner-lite/13/2092/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3038.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3039.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3040.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3041.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3042.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3043.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3044.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3045.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3046.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3047.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3048.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3049.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3050.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3051.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3052.png
## Source : http://tile.stamen.com/toner-lite/13/2092/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2093/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2094/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2095/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2096/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2097/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2098/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2099/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2100/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2101/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2102/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2103/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2104/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2105/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2106/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2107/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2108/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2109/3053.png
## Source : http://tile.stamen.com/toner-lite/13/2110/3053.png
map = ggmap(chicago)
map

# #map <- get_map("Chicago", zoom = 12, color = "bw")
# ggmap(map, extent='device') +
# geom_point(data=sample_n(df_Crime,100000), aes(x=X.Coordinate, y=Y.Coordinate),
# alpha = 1/10,color = "red")+
# scale_colour_brewer(type="qual")
chicago <- get_stamenmap(bbox = c(left = -88.0225, bottom = 41.5949,
right = -87.2713, top = 42.0677),
zoom = 10)
## Source : http://tile.stamen.com/terrain/10/261/379.png
## Source : http://tile.stamen.com/terrain/10/262/379.png
## Source : http://tile.stamen.com/terrain/10/263/379.png
## Source : http://tile.stamen.com/terrain/10/261/380.png
## Source : http://tile.stamen.com/terrain/10/262/380.png
## Source : http://tile.stamen.com/terrain/10/263/380.png
## Source : http://tile.stamen.com/terrain/10/261/381.png
## Source : http://tile.stamen.com/terrain/10/262/381.png
## Source : http://tile.stamen.com/terrain/10/263/381.png
ggmap(chicago)

map_contours <- function(data_trunc, alp) {
p1 = ggmap(chicago, extent='device') +
geom_point(data=data_trunc, aes(x=Longitude, y=Latitude), alpha= alp) +
stat_density2d(aes(x=Longitude, y=Latitude,
fill = ..level.., alpha = ..level..),
size = 0.1, data = data_trunc, n=100,
geom = "polygon") +
theme(legend.position="none")
return(p1)
}
plot_marginals <- function(data_trunc) {
p2 = ggplot(data=data_trunc, aes(x=Longitude, y=Latitude), alpha=0.1)+
geom_point()
p2 = ggMarginal(p2 + theme_gray(), type = "histogram",
fill = "steelblue", col = "darkblue")
return(p2)
}
p2 = plot_marginals(sample_n(df_Crime,10000))
plot(p2)

p2 = map_contours(sample_n(df_Crime,10000),.1)
p2
